[@̨]
{
#If
isadmin
#act
OPENMERCHANTBIGDLG 9 411 0 0 1 1 1 460 15
#say
   <̨/SCOLOR=154><Img:120:14:-99:-12>\
   <𾴵ϷԱ[<$UserName>],/SCOLOR=151> <̨մ/SCOLOR=87>\
<--------------------------------------------------------------/AUTOCOLOR=91>\
<ʾǰ/SCOLOR=56> \
<--------------------------------------------------------------/AUTOCOLOR=91>\
<ָ/@@InPutString8></@>[<$STR(S8)>]\
<--------------------------------------------------------------/AUTOCOLOR=91>\
<Ԫ/@@InPutString25><Ԫ/@Ԫ>Ԫ[<$STR(S25)>]\
<--------------------------------------------------------------/AUTOCOLOR=91>\
<ӰԪ/@@InPutString26><հԪ/@հԪ>Ԫ[<$STR(S26)>]\
<--------------------------------------------------------------/AUTOCOLOR=91>\
<ӻ/@@InPutString27><ջ/@ջ>֣[<$STR(S27)>]\
<--------------------------------------------------------------/AUTOCOLOR=91>\
<Ԫִ/@Ԫִ><Ԫִ/@Ԫִ><ִ/@ִ>\
<--------------------------------------------------------------/AUTOCOLOR=91>\
;<հ󶨻/@ջ>\
<鿴/@鿴>    <ն/@ն>  <[]/@Խ׶>\
<лϴ/@jialaoda>  <ͳƳֵ/@jiatongjichongzhi>   <鿴Ԫ/@chakanyuanbao> \
<ͳԪ/@tongji>  :<$STR(G98)> <$STR(G99)>  <[鿴лֵ]/@@inputstring12>\
<ͳл/@@inputstring11>  л<$STR(G96)>  <$STR(G95)> \

[@鿴лֵ]
#If
ISADMIN
#act
#call [..\QuestDiary\JunKingAdd\лֵͳ.txt] @лֵͳ

[@inputstring12]
#if
Equal S12 
#act
MessageBox лֲΪգ
break

#If
CheckTextList ..\QuestDiary\л.txt <$str(S12)>
#act
MOV A497 <$str(S12)>
#call [..\QuestDiary\JunKingAdd\лֵͳ.txt] @лֵͳ
#elseact
MessageBox л᲻ڣ

[@inputstring11]
#if
Equal S11 
#act
MessageBox лֲΪգ
break

#If
ISADMIN
#act
MOV G96 0
MOV G95 0
MOV A150 <$str(S11)>
CLEARNAMELIST ..\QuestDiary\лͳ.txt
GMEXECUTE ʼ @ʼͳл
DELAYGOTO 2000 @̨


[@tongji]
#IF
ISADMIN
#act
MOV G99 0
MOV G98 0
GMEXECUTE ʼ @ͳԪ
DELAYGOTO 2000 @̨


[@chakanyuanbao]
#if
Equal S8 
#act
MessageBox ֲΪգ
break

#if
#act
S8.MOV G80 <$gamegold>
SendMsg 7 <$str(S8)>ԪΪ<$str(G80)>


[@jiajishu]
#if
Equal S8 
#act
MessageBox ֲΪգ
break

#if
ISADMIN
#act
AddTextList ..\QuestDiary\JunKingAdd\.txt <$str(S8)>
SendMsg 5 [<$str(S8)>]ӳɹ
break


[@jiatongjichongzhi]
#if
Equal S8 
#act
MessageBox ֲΪգ
break

#If
CheckNameList ..\QuestDiary\JunKingAdd\.txt
#act
AddTextList ..\QuestDiary\лϴ.txt <$str(S8)>
SendMsg 5 лϴ[<$str(S8)>]ӳɹ
break

#If
ISADMIN
#act
AddTextList ..\QuestDiary\ͳƳֵ.txt <$str(S8)>
SendMsg 5 ͳƳֵ[<$str(S8)>]ӳɹ
break

[@jialaoda]
#if
Equal S8 
#act
MessageBox ֲΪգ
break

#If
ISADMIN
#act
AddTextList ..\QuestDiary\лϴ.txt <$str(S8)>
SendMsg 5 лϴ[<$str(S8)>]ӳɹ
break


[@ջ]
#IF
#ACT
OPENMERCHANTBIGDLG 9 411 0 0 1 1 1 460 15
break
#SAY
\\\
   <̨/SCOLOR=154><Img:120:14:-99:-12>\
   <Ա/SCOLOR=19> <𾴵ϷԱ,/SCOLOR=151> <̨մ/SCOLOR=87>\
<--------------------------------------------------------------/AUTOCOLOR=91>\

<Ҫյҵ/FCOLOR=154>:\ \
 </@@InPutString11(Ҫջ:)>\ \
<   /@̨>

[@InPutString11]
#if
Equal S8 
#act
MessageBox Ҫջ֣
break

#if
#act
S8.MOV T2 
SendMsg 7 <$str(S8)>գ

[@鿴]
#IF
#ACT
OPENMERCHANTBIGDLG 9 411 0 0 1 1 1 460 15
break
#SAY
\\\
   <̨/SCOLOR=154><Img:120:14:-99:-12>\
   <Ա/SCOLOR=19> <𾴵ϷԱ,/SCOLOR=151> <̨մ/SCOLOR=87>\
<--------------------------------------------------------------/AUTOCOLOR=91>\

<Ҫ鿴ҵ/FCOLOR=154>:\ \
 </@@InPutString22(Ҫ鿴:)>\ \
<   /@̨>

[@InPutString22]
#if
Equal S22 
#act
MessageBox Ҫ鿴֣
break

#if
#act
S22.MOV A99 <$str(T8)>
SendMsg 7 <$str(s22)>ĶΪ:[<$str(A99)>]


[@ն]
#IF
#ACT
OPENMERCHANTBIGDLG 9 411 0 0 1 1 1 460 15
break
#SAY
\\\
   <̨/SCOLOR=154><Img:120:14:-99:-12>\
   <Ա/SCOLOR=19> <𾴵ϷԱ,/SCOLOR=151> <̨մ/SCOLOR=87>\
<--------------------------------------------------------------/AUTOCOLOR=91>\

<Ҫնҵ/FCOLOR=154>:\ \
 </@@InPutString18(Ҫն:)>\ \
<   /@̨>

[@InPutString18]
#if
Equal S18 
#act
MessageBox Ҫն֣
break

#if
#act
S18.MOV T8 
SendMsg 7 <$str(s18)>ĶѾգ




[@bofang]
#act
;SCREENEFFECT 480 50 14 10 1 1 3500 1 0
;SCREENEFFECT 50 100 14 13 1 1 3500 1 0
;SCREENEFFECT 45 100 14 15 1 1 3500 1 0
;SCREENEFFECT 135 440 14 12 1 1 3500 1 0
;SCREENEFFECT 375 430 14 14 1 1 3500 1 0
;SCREENEFFECT 170 445 14 11 1 1 3500 1 0

[@л]
#if
isadmin
#act
AddGuild ˽Ƶ <$USERNAME>
AddGuildMemberCount = 10000
GOTO @MAIN
MESSAGEBOX \\ʾѾִ
#ELSEACT
MESSAGEBOX \\ʾȨʹ







[@Ʊ]
#if
isadmin
#act
mov G60 5
GOTO @MAIN
MESSAGEBOX \\ʾѾִ
#ELSEACT
MESSAGEBOX \\ʾȨʹ

[@Ʊ]
#if
isadmin
#act
mov G60 0
GOTO @MAIN
MESSAGEBOX \\ʾѾִ
#ELSEACT
MESSAGEBOX \\ʾȨʹ



[@InPutInteger5]
#IF
SMALL N5 1
#ACT
MOV N5 0
MESSAGEBOX \\ʾ0ϵ
BREAK
#IF
LARGE N5 100000
#ACT
MOV N5 0
MESSAGEBOX \\ʾ100000µ
BREAK
#IF
#ACT
MOV G67 <$STR(N5)>
MESSAGEBOX \\ʾ޸ĳɹǰýΪ[<$STR(G67)>]Ԫ
GOTO @̨
BREAK

[@InPutString6]
#if
EQUAL S6
#act
MESSAGEBOX \\ʾϵͳΪգA88G88ȵȣ
#ELSEACT
MESSAGEBOX \\ʾóɹǰϵͳΪ[<$STR(S6)>]
GOTO @̨
BREAK

[@InPutInteger7]
#IF
#ACT
MESSAGEBOX \\ʾóɹǰϵͳֵΪ[<$STR(N7)>]
GOTO @̨
BREAK

[@޸ָϵͳ]
#if
EQUAL S6
#act
MESSAGEBOX \\ʾϵͳΪգA88G88ȵȣ
#ELSEACT
MOV <$STR(S6)> <$STR(N7)>
MESSAGEBOX \\ʾ޸ĳɹָϵͳ[<$STR(S6)>]Ѿ޸ĳ[<$STR(N7)>]
MOV S6
MOV N7 0
GOTO @̨
BREAK

[@InPutString8]
#if
EQUAL S8
#act
MESSAGEBOX \\ʾֲΪգĵȵȣ
#ELSEACT
MESSAGEBOX \\ʾóɹǰָΪ[<$STR(S8)>]
GOTO @̨
BREAK



[@޸ָ]
#if
EQUAL S8
#act
MESSAGEBOX \\ʾֲָΪգĵȵȣ
BREAK
#if
EQUAL S8
#act
MESSAGEBOX \\ʾָΪգA88G88ȵȣ
#ELSEACT
MOV A65 <$STR(S8)>
MOV G65 <$STR(N8)>
MOV S8
MOV N8 0
HCALL <$STR(S8)> @ֵ
MESSAGEBOX \\ʾ޸ĳɹ[<$STR(S8)>][<$STR(A65)>]Ѿ޸ĳ[<$STR(G65)>]
MOV S8
GOTO @̨
BREAK


[@ɳͿ]
#IF
isadmin
#ACT
GMEXECUTE ĳ76 ɳͿ лռ
MESSAGEBOX \\óɹɳͿռ״̬Ѿʼ
GOTO @̨
BREAK


[@鿴]
#IF
#ACT
#SAY
\\\
<--------------------------------------------------------------/AUTOCOLOR=91>\
U0          δȡļ¼\
U1          ȡļ¼\
U6          ¼ս\
U8         Ѻϵͳ ¼ڴ\
U11        Ӷ   ¼Ӷȼ\
U12        Ԫ ¼Ԫ\
U14        ڸ ¼ս\
U15        ϵͳ ¼\
U16        ϵͳ ¼Сʱ\
U17        ϵͳ ¼ڷ\
U18        ϵͳ ¼               <ҳ/@̨>    <һҳ/@鿴1>\


[@鿴1]
#IF
#ACT
#SAY
\\\
<--------------------------------------------------------------/AUTOCOLOR=91>\
U32        Ա ¼ȡ\
U33        Ա ¼ϴ\
U34        鱦 ¼ɱ˫ʱ\
U35        鱦 ¼ɱʱ\
U36        鱦 ¼ɱıʱ\
U44        ʹ ¼ʹ\
G70        Ƿһˢ¹Ʊ  \
U45        ɱ  \
71      ε½Ч        70 ɱЧ \
G60Ʊϵͳ ¼Ʊ<ҳ/@̨>    <һҳ/@鿴>\
T2          \ 
T8           \
189       2   \
U44        ʹȼ  \
G400         \
U40        սֶ  \
U41        ۼƳֵ  \
U42        ճֵ  \



[@InPutString25]
#If
isadmin
#elseact
break

#if
EQUAL S25
#act
MESSAGEBOX \\ʾΪգ100200ȵȣ
#ELSEACT
MESSAGEBOX \\ʾóɹǰԪΪ[<$STR(S25)>]
GOTO @̨
BREAK

[@InPutString26]
#If
isadmin
#elseact
break

#if
EQUAL S26
#act
MESSAGEBOX \\ʾΪգ100200ȵȣ
#ELSEACT
MESSAGEBOX \\ʾóɹǰԪΪ[<$STR(S26)>]
GOTO @̨
BREAK

[@InPutString27]
#If
isadmin
#elseact
break

#if
EQUAL S27
#act
MESSAGEBOX \\ʾΪգ100200ȵȣ
#ELSEACT
MESSAGEBOX \\ʾóɹǰΪ[<$STR(S27)>]
GOTO @̨
BREAK


[@]
;#If
;CheckNameList ..\QuestDiary\JunKingAdd\.txt
;#elseact
;break

#If
isadmin
#ACT
MOV S8
MESSAGEBOX \\ʾóɹ
GOTO @̨
BREAK

[@Ԫ]
;#If
;CheckNameList ..\QuestDiary\JunKingAdd\.txt
;#elseact
;break

#If
isadmin
#ACT
MOV S25 0
MESSAGEBOX \\ʾóɹ
GOTO @̨
BREAK

[@հԪ]
;#If
;CheckNameList ..\QuestDiary\JunKingAdd\.txt
;#elseact
;break

#If
isadmin
#ACT
MOV S26 0
MESSAGEBOX \\ʾóɹ
GOTO @̨
BREAK

[@ջ]
;#If
;CheckNameList ..\QuestDiary\JunKingAdd\.txt
;#elseact
;break

#If
isadmin
#ACT
MOV S27 0
MESSAGEBOX \\ʾóɹ
GOTO @̨
BREAK


[@Ԫִ]
#If
isadmin
#elseact
break


#if
EQUAL S8
#act
MESSAGEBOX \\ʾֲָΪգĵȵȣ
BREAK


#if
<$STR(S8)>.checkonline
#act
MOV I0 <$STR(S25)>
HCALL <$STR(S8)> @Ԫִ
AddTextList ..\QuestDiary\JunKingAdd\¼\<$MONTH>-<$DAY>.txt <$DATETIME>[<$USERNAME>][<$STR(S8)>]Ԫ<$STR(S25)>
MESSAGEBOX \\ʾѾִ
GOTO @̨
#ELSEACT
MESSAGEBOX \\ʾ[<$STR(S8)>]
BREAK


[@Ԫִ]
#If
isadmin
#elseact
break

#if
EQUAL S8
#act
MESSAGEBOX \\ʾֲָΪգĵȵȣ
BREAK


#if
<$STR(S8)>.checkonline
#act
MOV I2 <$STR(S26)>
HCALL <$STR(S8)> @Ԫִ
AddTextList ..\QuestDiary\JunKingAdd\¼\<$MONTH>-<$DAY>.txt <$DATETIME>[<$USERNAME>][<$STR(S8)>]ӰԪ<$STR(S26)>
MESSAGEBOX \\ʾѾִ
GOTO @̨
#ELSEACT
MESSAGEBOX \\ʾ[<$STR(S8)>]
BREAK

[@ִ]
#If
isadmin
#elseact
break

#if
EQUAL S8
#act
MESSAGEBOX \\ʾֲָΪգĵȵȣ
BREAK


#if
<$STR(S8)>.checkonline
#act
MOV I1 <$STR(S27)>
HCALL <$STR(S8)> @ִ
AddTextList ..\QuestDiary\JunKingAdd\¼\<$MONTH>-<$DAY>.txt <$DATETIME>[<$USERNAME>][<$STR(S8)>]ӻ֣<$STR(S27)>
MESSAGEBOX \\ʾѾִ
GOTO @̨
#ELSEACT
MESSAGEBOX \\ʾ[<$STR(S8)>]
BREAK

[@Խ׶]
#If
CheckLevelEx > 0
#Act
GetListString ..\QuestDiary\Ϸ½\״̬.txt  S23
#SAY
\\\
   <̨/SCOLOR=154><Img:120:14:-99:-12>\
   <Ա/SCOLOR=19> <𾴵ϷԱ,/SCOLOR=151> <̨մ/SCOLOR=87>\
<--------------------------------------------------------------/AUTOCOLOR=91>\
ǰڣ[<$STR(S23)>]ģʽ\\
< [ȴ] ģʽ/@Ϊȴ>\\
< [] ģʽ/@Ϊ>\\
< [ʽ] ģʽ/@Ϊʽ>\\



[@Ϊȴ]
#ACT
DelTextList ..\QuestDiary\Ϸ½\״̬.txt <$STR(S23)>
AddTextList ..\QuestDiary\Ϸ½\״̬.txt ȴ
SENDMSG 7 ΪԿģʽЧ
GOTO @Խ׶
BREAK

[@Ϊ]
#ACT
DelTextList ..\QuestDiary\Ϸ½\״̬.txt <$STR(S23)>
AddTextList ..\QuestDiary\Ϸ½\״̬.txt 
SENDMSG 7 ΪԿģʽЧ
GOTO @Խ׶
BREAK


[@Ϊʽ]
#ACT
DelTextList ..\QuestDiary\Ϸ½\״̬.txt <$STR(S23)>
AddTextList ..\QuestDiary\Ϸ½\״̬.txt ʽ
SENDMSG 7 ΪԿģʽЧ
GOTO @Խ׶
BREAK



}